home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / qbfaqr01.zip / ANSIDET.BAS < prev    next >
BASIC Source File  |  1992-08-09  |  514b  |  25 lines
  1. DEFINT A-Z
  2. DECLARE SUB ansi.det (ansi%)
  3.  
  4. ' ===============================================
  5. ' Auto-ANSI Sensor by John Sneeringer, HPS 1992
  6. ' ===============================================
  7.  
  8. SUB ansi.det (ansi%)
  9.  
  10. PRINT #1, CHR$(27) + "[6n";   ' send code
  11.  
  12. FOR X = 1 TO 2                ' pause for like 2 seconds
  13.   A$ = TIME$
  14.   DO: LOOP UNTIL A$ <> TIME$
  15. NEXT X
  16.  
  17. IF LOC(1) > 1 THEN
  18.   IF LEFT$(INPUT$(1, 2), 2) = CHR$(27) + "[" THEN
  19.     ansi% = 1
  20.   ELSE
  21.     ansi% = 0
  22.   END IF
  23. END IF
  24. END SUB
  25.